home *** CD-ROM | disk | FTP | other *** search
/ BCI NET 2 / BCI NET 2.iso / archives / programming / arexx / ole1v10a.lha / OLE_System / server / Add_libs.rexx next >
Encoding:
OS/2 REXX Batch file  |  1995-02-10  |  746 b   |  40 lines
  1. /*
  2.  * Add_libs.rexx
  3.  *
  4.  * USAGE: Add_libs.rexx
  5.  *
  6.  * This script try to add an ARexx library to the list manteined by the
  7.  * ARexx server. Return a boolean value, 0 if success.
  8.  *
  9.  * $(C): (1994, Rocco Coluccelli, Bologna)
  10.  * $VER: Add_libs.rexx 1.07 (23.Nov.1994)
  11.  */
  12.  
  13.  
  14. lib. = ''
  15. lib.ARP   = 'rexxarplib.library'
  16. lib.DATA  = 'datatypes.library'
  17. lib.GUIDE = 'amigaguide.library'
  18. lib.LOC   = 'locale.library'
  19. lib.MATH  = 'rexxmathlib.library'
  20. lib.REQ   = 'rexxreqtools.library'
  21. lib.RMF   = 'rexxRMF.library'
  22. lib.SUPP  = 'rexxsupport.library'
  23.  
  24. pri = 0; offset = -30; version = 0
  25.  
  26.  
  27. DO i = 1 TO ARG()
  28.  
  29.     INTERPRET 'libname = lib.' || ARG(i)
  30.  
  31.     IF SHOW('L',libname) THEN
  32.         ITERATE
  33.  
  34.     IF ~ADDLIB(libname,pri,offset,version) THEN
  35.         RETURN 0
  36. END
  37.  
  38.  
  39. RETURN 1
  40.